home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 4 / United Public Domain Gold 4.iso / scope / sc168.dms / sc168.adf / AsmMacros / AM_02 / Execute.i < prev    next >
Text File  |  1990-11-13  |  1KB  |  54 lines
  1.      NOLIST
  2. Execute     MACRO              ; 14 Sept 88
  3. *------------------------------; Start of Execute macro.
  4.      MOVE.L #NullString,D1     ; Make D1 point to a null command string.
  5.      NOLIST
  6.      IFND NullString
  7.      LIST
  8.      SECTION DataSection,DATA
  9. NullString:
  10.      DC.B 0,0
  11.      SECTION CodeSection,CODE
  12.      NOLIST
  13.      ENDC
  14.      IFEQ NARG-2               ; If the output file handle is specified, then
  15.      LIST
  16.                                ; Make D3 indicate the output file handle.
  17.      NOLIST
  18.      IFEQ ReEntrant-1
  19.      LIST
  20.      MOVE.L \2(A5),D3
  21.      NOLIST
  22.      ENDC
  23.      IFNE ReEntrant-1
  24.      LIST
  25.      MOVE.L \2,D3
  26.      NOLIST
  27.      ENDC
  28.      ENDC
  29.      IFEQ NARG-1               ; If no output file handle is specified, then
  30.      LIST
  31.      CLR.L D3                  ; Clear D3 so that output will go to the
  32.                                ;  current window.
  33.      NOLIST
  34.      ENDC
  35.      LIST
  36.                                ; Put the command file handle in D2.
  37.      NOLIST
  38.      IFEQ ReEntrant-1
  39.      LIST
  40.      MOVE.L \1(A5),D2
  41.      NOLIST
  42.      ENDC
  43.      IFNE ReEntrant-1
  44.      LIST
  45.      MOVE.L \1,D2
  46.      NOLIST
  47.      ENDC
  48.      LIST
  49.      CallLib Execute,dos       ; Call Execute.
  50.      TST.L D0                  ; Make the zero flag indicate failure.
  51. *------------------------------; End of Execute macro.
  52.      ENDM
  53.      LIST
  54.